home *** CD-ROM | disk | FTP | other *** search
/ Wild Blue Yonder 1: 50 Years of Gs & Jets / Wild Blue Yonder - Episode 1 - 50 Years of Gs and Jets (Digital Ranch) (Spectrum Holobyte)(1-107-40-101)(1994).iso / control / panel.dir / 00732_Script_732 < prev    next >
Text File  |  1994-08-29  |  241b  |  9 lines
  1. on inCircle centerH, centerV, radius
  2.   if (the mouseH - centerH) * (the mouseH - centerH) ¼
  3.     + (the mouseV - centerV) * (the mouseV - centerV) < radius * radius then
  4.     return TRUE
  5.   else 
  6.     return FALSE
  7.   end if
  8. end inCircle
  9.